Macro FileExit

Sub MAIN
        On Error Goto ErrorRoutine
        
        If macros.bDebug Then MsgBox "start FileExit"

        REM enable automacros
        DésactiverMacrosAuto 0

        macros.SavToGlobal(NomFichier$())
        macros.objectiv
        FichierQuitter
        Goto Done

ErrorRoutine:
        On Error Goto Done
        If macros.bDebug Then
                MsgBox "error " + Str$(Err) + " occurred"
        End If

Done:
End Sub